Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2024 Altair Engineering Inc.
Copyright>    
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>    
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>    
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>    
Copyright>    
Copyright>        Commercial Alternative: Altair Radioss Software 
Copyright>    
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss 
Copyright>        software under a commercial license.  Contact Altair to discuss further if the 
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.    
C.../SCR17/
#include "nchar_c.inc"
      INTEGER MAXNOPT
      PARAMETER (MAXNOPT = 220)
      INTEGER LKEY0,KOPTAD,NLINE,NSLASH,KCUR,IREC,KREC,ID_LIMIT,
     .        ID_LIMIT_ADMESH
C KINVEL EST LIBRE
      INTEGER KNODE,KBRICK,KQUAD,KSHELL,KSH_3N,KTRUSS,KBEAM,KSPRIN,
     .        KLIAISON,KFIXDIS,KSUBMOD,KENDSU,KTRANSF,KBC,KUPWIND,
     .        KADMAS,KRIVET,KMAT,KPROP,KSKEW,KFUNCT,KCLOAD,KPLOAD,
     .        KRBODY,KDETP,KDETLN,KDETWA,KACCEL,KSENSO,KMONVO,
     .        KINTER,KRWALL,KRWALE,KCJOIN,KTITL,KMFUNCT,
     .        KFIXVEL,KSECT,KALE,KMEMOR,KPARAL,KIOFLA,KANALY,KRAND,
     .        KBCS,KPART,KGRNOD,KGRBRIC,KGRQUAD,KGRSHEL,KGRSH3N,
     .        KGRTRUS,KGRBEAM,KGRSPRI,KSUBSET,KSURF,KINIV,KTH,
     .        KDEFSO,KSLIN,KRLINK,KGRAV,KREFSTA,KXREF,KEREF,KDEFSH,
     .        KEND,KRCONX,KIMPVEL,KIMPDIS,KLASER,KINISTA,KDFS,KTHERM,
     .        KEULER,KXELEM,KIMPACC,KSPGLO,KSPCOND,
     .        KTETRA4,KTETRA10,KDSAI,KUSERW,KR2R,KDAMP,KFRAM,KXSPH,
     .        KSPHJET,KINISHE,KINISH3,KINIBRI,KINIQUA,KINITRU,KINIBEA,
     .        KBRICK20,KSHFRA,KIBVEL,KSHELL16,KSPHOPT,KACTIV,KGJOIN,
     .        KMPC, KLAGM, KTH1(9),KSH_3N6,KEBCS,LFIELD,
     .        KPENTA6,KARCH,KFXBOD,KEIG,KUNIT,KFAIL,KKEY,
     .        KCAA,KIMPL,KBEM,KANIM, RS0_FMT,KCNODE,KADMESH,
     .        KINTEMP,KLEVSET, KTHERM_ST,LIDFS,LIRNUR,KIMPTEMP,KIMPFLUX,KCONVEC,
     .        KSTAMPING,KRBE3,KINTTHICK,KPLYXFEM,KGRPART,KSMS,KVISC,
     .        KTHPART,KRADIA,KTABLE,KBOX,KRBE2,KSTATE,KINIVOL,
     .        KGAUGE,KEOS,KSUBDOM,KIMPLICIT,KLOAD,KLEAK,LNOPT1,LTITR,
     .        LILSET1,LISLIN1,LISUB1,LIBOX1,LISURF1,LIPART1,LIGRN1,
     .        KCRASH,KINICRACK,KCLUSTER,KDEFAULT,KIGE3D,KPRIVATE,
     .        KPERTURB,KSTACK,KPLY,KDRAPE,KINT2,KINISPRI,KSH3NFRA,KS17_OLD,
     .        KPRELOAD,KNBCS,KINIGRAV,IDT1SOL,KINIMAP1D,KFUNC2D,KINIMAP2D,
     .        KFRICTION,KTRIA,KGRTRIA,IDT1TET10,KKEY_ENCRYPT,KMERGE,KFRIC_ORIENT,
     .        KSET,IDT1SH,IDTS6,ID_UNIT_AUTO,IDTTSH
C
      COMMON /SCR17/ LKEY0(MAXNOPT),KOPTAD(MAXNOPT+2),NLINE(MAXNOPT),
     .        NSLASH(MAXNOPT),KCUR,IREC,KREC,ID_LIMIT,ID_LIMIT_ADMESH,
     .        KNODE,KBRICK,KQUAD,KSHELL,KSH_3N,KTRUSS,KBEAM,KSPRIN,
     .        KLIAISON,KFIXDIS,KSUBMOD,KENDSU,KTRANSF,KBC,KUPWIND,
     .        KADMAS,KRIVET,KMAT,KPROP,KSKEW,KFUNCT,KCLOAD,KPLOAD,
     .        KRBODY,KDETP,KDETLN,KDETWA,KACCEL,KSENSO,KMONVO,
     .        KINTER,KRWALL,KRWALE,KCJOIN,KTITL,KMFUNCT,
     .        KFIXVEL,KSECT,KALE,KMEMOR,KPARAL,KIOFLA,KANALY,KRAND,
     .        KBCS,KPART,KGRNOD,KGRBRIC,KGRQUAD,KGRSHEL,KGRSH3N,
     .        KGRTRUS,KGRBEAM,KGRSPRI,KSUBSET,KSURF,KINIV,KTH,
     .        KDEFSO,KSLIN,KRLINK,KGRAV,KREFSTA,KXREF,KEREF,KDEFSH,
     .        KEND,KRCONX,KIMPVEL,KIMPDIS,KLASER,KINISTA,KDFS,KTHERM,
     .        KEULER,KXELEM,KIMPACC,KSPGLO,KSPCOND,
     .        KTETRA4,KTETRA10,KDSAI,KUSERW,KR2R,KDAMP,KFRAM,KXSPH,
     .        KSPHJET,KINISHE,KINISH3,KINIBRI,KINIQUA,KINITRU,KINIBEA,
     .        KBRICK20,KSHFRA,KIBVEL,KSHELL16,KSPHOPT,KACTIV,KGJOIN,
     .        KMPC, KLAGM, KTH1,KSH_3N6,KEBCS,LFIELD,
     .        KPENTA6,KARCH,KFXBOD,KEIG,KUNIT,KFAIL,KKEY,
     .        KCAA,KIMPL,KBEM,KANIM,RS0_FMT,KCNODE,KADMESH,
     .        KINTEMP,KLEVSET, KTHERM_ST,LIDFS,LIRNUR,KIMPTEMP,KIMPFLUX,KCONVEC,
     .        KSTAMPING,KRBE3,KINTTHICK, KPLYXFEM,KGRPART,KSMS,KVISC,
     .        KTHPART,KRADIA,KTABLE,KBOX,KRBE2,KSTATE,KINIVOL,
     .        KGAUGE,KEOS,KSUBDOM,KIMPLICIT,KLOAD,KLEAK,LNOPT1,LTITR,
     .        LILSET1,LISLIN1,LISUB1,LIBOX1,LISURF1,LIPART1,LIGRN1,
     .        KCRASH,KINICRACK,KCLUSTER,KDEFAULT,KIGE3D,KPRIVATE,
     .        KPERTURB,KSTACK,KPLY,KDRAPE,KINT2,KINISPRI,KSH3NFRA,KS17_OLD,
     .        KPRELOAD,KNBCS,KINIGRAV,IDT1SOL,KINIMAP1D,KFUNC2D,KINIMAP2D,
     .        KFRICTION,KTRIA,KGRTRIA,IDT1TET10,KKEY_ENCRYPT,KMERGE,KFRIC_ORIENT,
     .        KSET,IDT1SH,IDTS6,ID_UNIT_AUTO,IDTTSH
C
      CHARACTER KEY0(MAXNOPT)*ncharkey,KLINE*ncharline,LINE*ncharline
C
      CHARACTER*50
     . FMT_F,FMT_2F,FMT_3F,FMT_4F,FMT_5F,FMT_I,FMT_2I,FMT_3I,FMT_4I,
     . FMT_5I,FMT_6I,FMT_7I,FMT_8I,FMT_9I,FMT_10I,FMT_I_X_F,FMT_I_X_A,
     . FMT_I_X_2F,FMT_I_X_3F,FMT_I_3X_F,FMT_I_F,FMT_I_F_I,FMT_I_2F,
     . FMT_I_F_3X_I_F,FMT_I_2F_3I,FMT_I_3F_3I,FMT_2I_X_F,FMT_2I_6X_F,
     . FMT_2I_F,FMT_2I_2F,FMT_2I_2F_2X_I,FMT_2I_2F_3I,FMT_2I_2F_4I,
     . FMT_3I_F,FMT_4I_F_3I,FMT_3I_X_F,FMT_F_I_X_F_2I,FMT_2I_A,
     . FMT_4I_3F,FMT_4I_F_4I,FMT_5I_X_2F,FMT_5I_3X_F,FMT_6I_2X_F,
     . FMT_I_F_I_F_I_F,FMT_F_I,FMT_2F_2I,FMT_3F_3I,FMT_3X_I_F,
     . FMT_F_I_X_F_I,FMT_F_3X_3I,FMT_F_3X_3I_F,FMT_2F_I,FMT_2F_2I_F,
     . FMT_2F_6I,FMT_3F_I,FMT_3F_2I,FMT_4F_I,FMT_4F_2I,FMT_2X_I,
     . FMT_A_I,FMT_2X_2F,FMT_3X_I_2F,FMT_X_I_X_I_X_I_X_I_X_I,
     . FMT_A_2I_3F,FMT_A_3I_3F,FMT_2A_2I_3F,FMT_I_F_I_A,FMT_I_A_2F,
     . FMT_I_A_4I,FMT_I_A_2I_F_I,FMT_I_A,FMT_4I_4X_F,FMT_2I_F_I,
     . FMT_A_2I,FMT_A_2I_X_I,FMT_A_I_F,FMT_A_3I,FMT_F_2I,FMT_4I_5X_I,
     . FMT_2I_3F,FMT_I_3F,FMT_F_3X_I,FMT_2I_2F_I,FMT_4I_2F_I,
     . FMT_X_I_3F,FMT_2I_2X_I,FMT_2I_4X_I,FMT_I_F_2X_I,FMT_2X_3F,
     . FMT_4X_I,FMT_7X_I,FMT_2I_4F,FMT_2I_F_I_F_I,FMT_5I_A_2F,FMT_2I_F_I_F,
     . FMT_8I_X_I,FMT_X_3F,FMT_2X_I_2X_I,FMT_THGR,FMT_DSA1,
     . FMT_STRING,FMT_2I_2F_I_F,FMT_3F_2I_F,FMT_I_X_4F,FMT_I_X_F_2I_2F,
     . FMT_I_X_F_I, FMT_5I_F, FMT_7I_X_F,FMT_8I_F,FMT_3F_3X_2I,
     . FMT_5I_2F, FMT_2F_2X_2F,FMT_2F_2X_I,FMT_5I_4X_I,FMT_I_A_3I_X_2F,
     . FMT_2I_A_2I,FMT_4I_F_I,FMT_3I_3X_2F,FMT_3I_X_3F, FMT_I_X_F_4I,
     . FMT_6I_3X_I,FMT_F_I_X_F_2I_F,FMT_F_2I_F,FMT_3F_I_X_F,
     . FMT_3F_X_I_F,FMT_2F_2I_2F,FMT_X_I_4F,FMT_2X_4F,FMT_X_3I_2F,
     . FMT_2I_2X_3F,FMT_3I_5X_F,FMT_F_3I,FMT_2F_3I,FMT_5I_F_3I,
     . FMT_4I_2F   ,FMT_2X_2F_I,FMT_2I_3F_I,FMT_3X_F,FMT_I_2X_F,
     . FMT_F_2I_F_I_F,FMT_3F_I_F,FMT_2X_3F_I,FMT_I_3F_I,FMT_2I_F_I_F_2I,
     . FMT_4I_F,FMT_X_I,FMT_3X_I,FMT_6X_I,FMT_9X_I,FMT_I_4F,FMT_X_4F,
     . FMT_I_3F_2I,FMT_F_4I,FMT_F_4I_2F,FMT_3A,FMT_3DA,FMT_X_A,
     . FMT_F_I_F,FMT_2I_X_3I_3X_I,FMT_2A_X_I_2X_F,FMT_A,FMT_A_I_2F_I_2F,
     . FMT_2A_X_I_F_X_F,FMT_6I_2F,FMT_3I_X_4F,FMT_A_I_2F_I,
     . FMT_2I_F_I_X_2F,FMT_I_X_F_I_X_2F, FMT_I_X_3F_I,FMT_3I_X_2F,
     . FMT_F_A_2I,FMT_I_A_I,FMT_F_3X_2I,FMT_2A_X_I_F_2X_F,FMT_3I_6X_I,
     . FMT_2I_X_F_4X_I,FMT_I_2X_F_4X_I,FMT_I_A_2I,FMT_3I_F_I_F,
     . FMT_2F_2I_F_I,FMT_I_X_3F_2I,FMT_2X_3F_2I,FMT_4F_X_I,
     . FMT_3F_I_F_I,FMT_3I_3X_I,FMT_X_I_2F,FMT_I_A_3I,FMT_F_3I_2F,
     . FMT_I_3F_X_I,FMT_I_A_3F,FMT_2I_2F_2I,FMT_6X_F,FMT_3F_3X_I,
     . FMT_7I_2X_I,FMT_2I_X_3F_2I,FMT_X_I_3F_2I,FMT_I_A_4I_2F,FMT_3F_4I,
     . FMT_2I_3F_2I,FMT_I_F_X_I,FMT_F_I_2F,FMT_I_A_5I,FMT_2F_I_2F,
     . FMT_I_F_I_3F,FMT_I_F_I_2F,FMT_2F_2X_I_F_I,FMT_2F_2X_F,FMT_2F_I_F,
     . FMT_F_2I_F_I,FMT_3I_F_I,FMT_2F_I_X_F,FMT_I_4F_I,FMT_F_2I_F_3X_I,
     . FMT_3I_F_4X_I,FMT_3I_X_F_3X_I,FMT_2I_F_2I,FMT_2I_F_2I_F,FMT_2I_F_2I_F_I,FMT_2F_X_I_2F,
     . FMT_5I_2X_3I,FMT_F_I_F_I_F,FMT_2I_F_X_I,FMT_F_2X_F_I,FMT_3F_2X_F,
     . FMT_2I_2X_F_3X_I,FMT_I_7X_F,FMT_3I_2F,FMT_F_2I_2F_X_I,FMT_F_2X_I,
     . FMT_F_I_X_F_I_F, FMT_I_2F_2I,FMT_3F_X_I,FMT_X_3I_F_3I,
     . FMT_4I_X_I_2X_F,FMT_4I_X_I_2F,FMT_2F_2I_F_2I,FMT_F_2X_2I,FMT_2I_2F_2X_A,
     . FMT_3I_5X_A,FMT_I_A_4F,FMT_F_I_2F_I,FMT_3I_F_3I_F,FMT_2I_2X_2F_X_I,
     . FMT_I_2F_I_F,FMT_I_2F_I_2F,FMT_I_2F_4I,FMT_I_3X_F_X_I_F,FMT_I_X_2F_X_I_F,
     . FMT_2I_F_3I_F,FMT_I_F_2I,FMT_I_2F_3I_F,FMT_3F_2X_I,FMT_X_I_F_2I,
     . FMT_I_5X_2F,FMT_3I_3X_2I,FMT_I_F_6X_I,FMT_A_I_2F,FMT_4I_2X_2F,
     . FMT_2F_4I,FMT_2F_5I,FMT_4I_2F_2I,FMT_I_DA,FMT_6F,FMT_3I_3X_F,
     . FMT_F_4X_F,FMT_X_I_F_2I_X_I,FMT_X_I_F_2I_X_I_F,FMT_2I_F_2I_X_I_F,
     . FMT_2I_F_2I_X_I,FMT_I_2F_I,FMT_2F_I_2F_I,FMT_I_X_I,FMT_2I_F_X_I_F,
     . FMT_F_2I_F_X_I_F,FMT_2I_F_3I_F_I,FMT_2I_F_2I_3A_I,FMT_9A_I,FMT_3I_A,
     . FMT_I_3X_3F, FMT_2I_F_2I_2A_I,FMT_5I_2X_3F,FMT_4I_X_3F,FMT_3I_F_2I,
     . FMT_3I_F_2I_X_F,FMT_I_2X_I_3F,FMT_3F_2X_2I,FMT_3F_2I_X_I,FMT_F_2I_2F,
     . FMT_2F_5X_I,FMT_I_X_2F_3I,FMT_4I_X_I,FMT_2F_I_F_I,FMT_2A_2I_F_2I_F,
     . FMT_I_X_5I,FMT_2F_4X_F,FMT_2I_A_4I
C
      COMMON /SCR17C/ KEY0      ,KLINE       ,LINE        ,
     . FMT_F,FMT_2F,FMT_3F,FMT_4F,FMT_5F,FMT_I,FMT_2I,FMT_3I,FMT_4I,
     . FMT_5I,FMT_6I,FMT_7I,FMT_8I,FMT_9I,FMT_10I,FMT_I_X_F,FMT_I_X_A,
     . FMT_I_X_2F,FMT_I_X_3F,FMT_I_3X_F,FMT_I_F,FMT_I_F_I,FMT_I_2F,
     . FMT_I_F_3X_I_F,FMT_I_2F_3I,FMT_I_3F_3I,FMT_2I_X_F,FMT_2I_6X_F,
     . FMT_2I_F,FMT_2I_2F,FMT_2I_2F_3I,FMT_2I_2F_4I,
     . FMT_3I_F,FMT_4I_F_3I,FMT_3I_X_F,FMT_F_I_X_F_2I,FMT_2I_A,
     . FMT_4I_3F,FMT_4I_F_4I,FMT_5I_X_2F,FMT_5I_3X_F,FMT_6I_2X_F,
     . FMT_I_F_I_F_I_F,FMT_F_I,FMT_2F_2I,FMT_3F_3I,FMT_3X_I_F,
     . FMT_F_I_X_F_I,FMT_F_3X_3I,FMT_F_3X_3I_F,FMT_2F_I,FMT_2F_2I_F,
     . FMT_2F_6I,FMT_3F_I,FMT_3F_2I,FMT_4F_I,FMT_4F_2I,FMT_2X_I,
     . FMT_A_I,FMT_2X_2F,FMT_3X_I_2F,FMT_X_I_X_I_X_I_X_I_X_I,
     . FMT_A_2I_3F,FMT_A_3I_3F,FMT_2A_2I_3F,FMT_I_F_I_A,FMT_I_A_2F,
     . FMT_I_A_4I,FMT_I_A_2I_F_I,FMT_I_A,FMT_4I_4X_F,FMT_2I_F_I,
     . FMT_A_2I,FMT_A_2I_X_I,FMT_A_I_F,FMT_A_3I,FMT_F_2I,FMT_4I_5X_I,
     . FMT_2I_3F,FMT_I_3F,FMT_F_3X_I,FMT_2I_2F_I,FMT_4I_2F_I,
     . FMT_X_I_3F,FMT_2I_2X_I,FMT_2I_4X_I,FMT_I_F_2X_I,FMT_2X_3F,
     . FMT_4X_I,FMT_7X_I,FMT_2I_4F,FMT_2I_F_I_F_I,FMT_5I_A_2F,FMT_2I_F_I_F,
     . FMT_8I_X_I,FMT_X_3F,FMT_2X_I_2X_I,FMT_THGR,FMT_DSA1,
     . FMT_STRING,FMT_2I_2F_I_F,FMT_3F_2I_F,FMT_I_X_4F,FMT_I_X_F_2I_2F,
     . FMT_I_X_F_I, FMT_5I_F, FMT_7I_X_F,FMT_8I_F,FMT_3F_3X_2I,
     . FMT_5I_2F, FMT_2F_2X_2F,FMT_2F_2X_I,FMT_5I_4X_I,FMT_I_A_3I_X_2F,
     . FMT_2I_A_2I,FMT_4I_F_I,FMT_3I_3X_2F,FMT_3I_X_3F, FMT_I_X_F_4I,
     . FMT_6I_3X_I,FMT_F_I_X_F_2I_F,FMT_F_2I_F,FMT_3F_I_X_F,
     . FMT_3F_X_I_F,FMT_2F_2I_2F,FMT_X_I_4F,FMT_2X_4F,FMT_X_3I_2F,
     . FMT_2I_2X_3F,FMT_3I_5X_F,FMT_F_3I,FMT_2F_3I,FMT_5I_F_3I,
     . FMT_4I_2F   ,FMT_2X_2F_I,FMT_2I_3F_I,FMT_3X_F,FMT_I_2X_F,
     . FMT_F_2I_F_I_F,FMT_3F_I_F,FMT_2X_3F_I,FMT_I_3F_I,FMT_2I_F_I_F_2I,
     . FMT_4I_F,FMT_X_I,FMT_3X_I,FMT_6X_I,FMT_9X_I,FMT_I_4F,FMT_X_4F,
     . FMT_I_3F_2I,FMT_F_4I,FMT_F_4I_2F,FMT_3A,FMT_3DA,FMT_X_A,
     . FMT_F_I_F,FMT_2I_X_3I_3X_I,FMT_2A_X_I_2X_F,FMT_A,FMT_A_I_2F_I_2F,
     . FMT_2A_X_I_F_X_F,FMT_6I_2F,FMT_3I_X_4F,FMT_A_I_2F_I,
     . FMT_2I_F_I_X_2F,FMT_I_X_F_I_X_2F, FMT_I_X_3F_I,FMT_3I_X_2F,
     . FMT_F_A_2I,FMT_I_A_I,FMT_F_3X_2I,FMT_2A_X_I_F_2X_F,FMT_3I_6X_I,
     . FMT_2I_X_F_4X_I,FMT_I_2X_F_4X_I,FMT_I_A_2I,FMT_3I_F_I_F,
     . FMT_2F_2I_F_I,FMT_I_X_3F_2I,FMT_2X_3F_2I,FMT_4F_X_I,
     . FMT_3F_I_F_I,FMT_3I_3X_I,FMT_X_I_2F,FMT_I_A_3I,FMT_F_3I_2F,
     . FMT_I_3F_X_I,FMT_2I_2F_2X_I,FMT_I_A_3F,FMT_2I_2F_2I,FMT_6X_F,
     . FMT_3F_3X_I,FMT_7I_2X_I,FMT_2I_X_3F_2I,FMT_X_I_3F_2I,
     . FMT_I_A_4I_2F,FMT_3F_4I,FMT_2I_3F_2I,FMT_I_F_X_I,FMT_F_I_2F,
     . FMT_I_A_5I,FMT_2F_I_2F,FMT_I_F_I_3F,FMT_I_F_I_2F,FMT_2F_2X_I_F_I,
     . FMT_2F_2X_F,FMT_2F_I_F,FMT_F_2I_F_I,FMT_3I_F_I,FMT_2F_I_X_F,
     . FMT_I_4F_I,FMT_F_2I_F_3X_I,FMT_3I_F_4X_I,FMT_3I_X_F_3X_I,
     . FMT_2I_F_2I,FMT_2I_F_2I_F,FMT_2I_F_2I_F_I,FMT_2F_X_I_2F,FMT_5I_2X_3I,FMT_F_I_F_I_F,
     . FMT_2I_F_X_I,FMT_F_2X_F_I,FMT_3F_2X_F,FMT_2I_2X_F_3X_I,
     . FMT_I_7X_F,FMT_4I_2F_X_I,FMT_3I_2F,FMT_F_2I_2F_X_I,FMT_F_2X_I,
     . FMT_F_I_X_F_I_F, FMT_I_2F_2I,FMT_3F_X_I,FMT_X_3I_F_3I,
     . FMT_4I_X_I_2X_F,FMT_4I_X_I_2F,FMT_2F_2I_F_2I,FMT_F_2X_2I,FMT_2I_2F_2X_A,
     . FMT_3I_5X_A,FMT_I_A_4F,FMT_F_I_2F_I,FMT_3I_F_3I_F,FMT_2I_2X_2F_X_I,
     . FMT_I_2F_I_F,FMT_I_2F_I_2F,FMT_I_2F_4I,FMT_I_3X_F_X_I_F,FMT_I_X_2F_X_I_F,
     . FMT_2I_F_3I_F,FMT_I_F_2I,FMT_I_2F_3I_F,FMT_3F_2X_I,FMT_X_I_F_2I,
     . FMT_I_5X_2F,FMT_3I_3X_2I,FMT_I_F_6X_I,FMT_A_I_2F,FMT_4I_2X_2F,
     . FMT_2F_4I,FMT_2F_5I,FMT_4I_2F_2I,FMT_I_DA,FMT_6F,FMT_3I_3X_F,
     . FMT_F_4X_F,FMT_X_I_F_2I_X_I,FMT_X_I_F_2I_X_I_F,FMT_2I_F_2I_X_I_F,
     . FMT_2I_F_2I_X_I,FMT_I_2F_I,FMT_2F_I_2F_I,FMT_I_X_I,FMT_2I_F_X_I_F,
     . FMT_F_2I_F_X_I_F,FMT_2I_F_3I_F_I,FMT_2I_F_2I_3A_I,FMT_9A_I,FMT_3I_A,
     . FMT_I_3X_3F, FMT_2I_F_2I_2A_I,FMT_5I_2X_3F,FMT_4I_X_3F,FMT_3I_F_2I,
     . FMT_3I_F_2I_X_F,FMT_I_2X_I_3F,FMT_3F_2X_2I,FMT_3F_2I_X_I,FMT_F_2I_2F,
     . FMT_2F_5X_I, FMT_I_X_2F_3I,FMT_4I_X_I,FMT_2F_I_F_I,FMT_2A_2I_F_2I_F,
     . FMT_I_X_5I,FMT_2F_4X_F,FMT_2I_A_4I
C
        CHARACTER*7 FMW_10I
      CHARACTER*50
     .  FMW_I,FMW_2I,FMW_3I,FMW_4I,FMW_5I,FMW_6I,FMW_7I,FMW_8I,FMW_9I,
     .  FMW_I_A,FMW_A_I,FMW_A_I_A,FMW_A_I_A_I,FMW_I_3F,FMW_5I_F,
     .  FMW_7I_2F,FMW_I_F,FMW_I_A_2F,
     .  FMW_2F_6I ,FMW_5I_X_2F,FMW_7I_X_F,FMW_8I_X_I,FMW_X_I_4F,
     .  FMW_4I_2F_I,FMW_I_X_F, FMW_I_X_4F ,FMW_4I_3F,FMW_F_2I_F,
     .  FMW_2F_2I_F ,FMW_3I_X_3F ,FMW_F_I ,FMW_2F_I,FMW_F_3X_3I_F,
     .  FMW_2I_4F,FMW_3F_3I,FMW_F_3X_3I,FMW_2I_2F,FMW_2F_2I,FMW_I_X_A,
     .  FMW_4I_F,FMW_2KEY_ID,FMW_4I_F_4I,FMW_I_A_3I_X_2F,
     .  FMW_2I_X_F,FMW_2F_2X_I,FMW_3F_2I,FMW_2I_A,FMW_KEY_2ID,
     .  FMW_2KEY_2ID,FMW_KEY_ID,FMW_I_2F,FMW_F_3X_I,FMW_5F,FMW_2A_2I_3F,
     .  FMW_I_3F_2I,FMW_2KEY_3ID,FMW_KEY_3ID,FMW_KEY_2ID_A,FMW_3KEY_2ID,
     .  FMW_3I_F,FMW_2I_2X_3F,FMW_I_X_3F,FMW_2F_3I,FMW_I_F_2X_I,
     .  FMW_3F_I_F,FMW_2I_F_I_F_2I,FMW_I_3F_I,FMW_3I_3X_2F,FMW_3F_I,
     .  FMW_6I_2F,FMW_F_3X_2I,FMW_3I_6X_I,FMW_2I_X_F_4X_I,
     .  FMW_I_2X_F_4X_I,FMW_3KEY_3ID,FMW_4KEY_3ID,FMW_I_3F_3I,FMW_KEY,
     .  FMW_2I_A_2I,FMW_5I_3X_F,FMW_F,FMW_2F,FMW_3F,FMW_4F,FMW_2F_2I_2F,
     .  FMW_2KEY_4ID,FMW_I_A_2I,FMW_I_A_3I,FMW_F_A_2I,FMW_KEY_4ID,
     .  FMW_4F_2I,FMW_I_A_4I_2F,FMW_I_X_2F, FMW_A_2I, FMW_I_A_5I,
     .  FMW_2F_I_2F,FMW_3F_I_F_I,FMW_2F_2X_I_F_I,FMW_2F_2X_F,FMW_4F_I,
     .  FMW_2I_F_I,FMW_I_4F_I,FMT_3I_X_4I,FMW_3F_2X_I,FMW_I_2X_F,
     .  FMW_3F_2X_2I ,FMW_2I_F_2I,FMW_2I_3F_I,FMW_2KEY,FMW_2I_2X_F_3X_I,
     .  FMW_I_X_F_4X_F,FMT_4I_2F_X_I,FMW_I_X_3F_2I,FMW_2I_F,
     .  FMW_3I_X_2F,FMW_I_X_F_I,FMW_2I_3F,FMW_I_A_3F,FMW_F_I_F_I_F,
     .  FMW_3I_F_I_F,FMW_F_I_2F,FMW_2I_2F_3I,FMW_I_7X_F,FMW_F_4I_2F,
     .  FMW_3F_X_I,FMW_4I_X_I_2X_F,FMW_8I_F,FMW_2F_2I_F_I,FMW_F_2I_F_I_F,
     .  FMW_3F_3X_I,FMW_4I_2F,FMW_A_3I,FMW_I_2F_2I,FMW_I_2F_3I,FMW_3I_5X_A,
     .  FMW_4F_X_I,FMW_4I_4X_F,FMW_A_I_2F,FMW_I_2F_3I_F,FMW_I_2F_I_2F,
     .  FMW_3I_F_3I_F,FMW_I_F_3X_I_F,FMW_3X_I_F,FMW_3X_I_2F,FMW_3F_4I,
     .  FMW_X_I_3F_2I,FMW_2I_2F_I_F,FMW_I_DA,FMW_I_X_3F_I,FMW_I_A_4F,
     .  FMW_2I_F_3I_F,FMW_2I_F_2I_X_I,FMW_4I_2X_2F,FMW_I_2F_I,FMW_F_2I_F_X_I_F,
     .  FMW_2F_I_2F_I,FMW_9A_I,FMW_2I_F_2I_3A_I,FMW_3I_A,FMW_2I_F_3I_F_I,
     .  FMW_2I_F_2I_2A_I,FMW_A_2I_X_I,FMW_F_3I,FMW_F_I_2F_I,FMW_I_4F,
     .  FMW_2I_F_2I_F,FMW_2I_F_2I_F_I, FMW_I_X_2F_3I,FMW_4I_X_I,FMW_F_I_X_F_I_F,
     .  FMW_F_I_X_F_I,FMW_2F_I_F_I,FMW_F_2I,FMW_3F_X_I_F, FMW_I_2X_4I
C
      COMMON /SCR17W/
     .  FMW_I,FMW_2I,FMW_3I,FMW_4I,FMW_5I,FMW_6I,FMW_7I,FMW_8I,FMW_9I,
     .  FMW_10I,FMW_I_A,FMW_A_I,FMW_A_I_A,FMW_A_I_A_I,FMW_I_3F,FMW_5I_F,
     .  FMW_7I_2F,FMW_I_F,FMW_I_A_2F,
     .  FMW_2F_6I ,FMW_5I_X_2F,FMW_7I_X_F,FMW_8I_X_I,FMW_X_I_4F,
     .  FMW_4I_2F_I,FMW_I_X_F, FMW_I_X_4F ,FMW_4I_3F,FMW_F_2I_F,
     .  FMW_2F_2I_F ,FMW_3I_X_3F ,FMW_F_I ,FMW_2F_I,FMW_F_3X_3I_F,
     .  FMW_2I_4F,FMW_3F_3I,FMW_F_3X_3I,FMW_2I_2F,FMW_2F_2I,FMW_I_X_A,
     .  FMW_4I_F,FMW_2KEY_ID,FMW_4I_F_4I,FMW_I_A_3I_X_2F,
     .  FMW_2I_X_F,FMW_2F_2X_I,FMW_3F_2I,FMW_2I_A,FMW_KEY_2ID,
     .  FMW_2KEY_2ID,FMW_KEY_ID,FMW_I_2F,FMW_F_3X_I,FMW_5F,FMW_2A_2I_3F,
     .  FMW_I_3F_2I,FMW_2KEY_3ID,FMW_KEY_3ID,FMW_KEY_2ID_A,FMW_3KEY_2ID,
     .  FMW_3I_F,FMW_2I_2X_3F,FMW_I_X_3F,FMW_2F_3I,FMW_I_F_2X_I,
     .  FMW_3F_I_F,FMW_2I_F_I_F_2I,FMW_I_3F_I,FMW_3I_3X_2F,FMW_3F_I,
     .  FMW_6I_2F,FMW_F_3X_2I,FMW_3I_6X_I,FMW_2I_X_F_4X_I,
     .  FMW_I_2X_F_4X_I,FMW_3KEY_3ID,FMW_4KEY_3ID,FMW_I_3F_3I,FMW_KEY,
     .  FMW_2I_A_2I,FMW_5I_3X_F,FMW_F,FMW_2F,FMW_3F,FMW_4F,FMW_2F_2I_2F,
     .  FMW_2KEY_4ID,FMW_I_A_2I,FMW_I_A_3I,FMW_F_A_2I,FMW_KEY_4ID,
     .  FMW_4F_2I,FMW_I_A_4I_2F,FMW_I_X_2F, FMW_A_2I, FMW_I_A_5I,
     .  FMW_2F_I_2F,FMW_3F_I_F_I,FMW_2F_2X_I_F_I,FMW_2F_2X_F,FMW_4F_I,
     .  FMW_2I_F_I,FMW_I_4F_I,FMT_3I_X_4I,FMW_3F_2X_I,FMW_I_2X_F,
     .  FMW_3F_2X_2I ,FMW_2I_F_2I,FMW_2I_3F_I,FMW_2KEY,FMW_2I_2X_F_3X_I,
     .  FMW_I_X_F_4X_F,FMW_I_X_3F_2I,FMW_2I_F,
     .  FMW_3I_X_2F,FMW_I_X_F_I,FMW_2I_3F,FMW_I_A_3F,FMW_F_I_F_I_F,
     .  FMW_3I_F_I_F,FMW_F_I_2F,FMW_2I_2F_3I,FMW_I_7X_F,FMW_F_4I_2F,
     .  FMW_3F_X_I,FMW_4I_X_I_2X_F,FMW_8I_F,FMW_2F_2I_F_I,FMW_F_2I_F_I_F,
     .  FMW_3F_3X_I,FMW_4I_2F,FMW_A_3I,FMW_I_2F_2I,FMW_I_2F_3I,FMW_3I_5X_A,
     .  FMW_4F_X_I,FMW_4I_4X_F,FMW_A_I_2F,FMW_I_2F_3I_F,FMW_I_2F_I_2F,
     .  FMW_3I_F_3I_F,FMW_I_F_3X_I_F,FMW_3X_I_F,FMW_3X_I_2F,FMW_3F_4I,
     .  FMW_X_I_3F_2I,FMW_2I_2F_I_F,FMW_I_DA,FMW_I_X_3F_I,FMW_I_A_4F,
     .  FMW_2I_F_3I_F,FMW_2I_F_2I_X_I,FMW_4I_2X_2F,FMW_I_2F_I,FMW_F_2I_F_X_I_F,
     .  FMW_2F_I_2F_I,FMW_9A_I,FMW_2I_F_2I_3A_I,FMW_3I_A,FMW_2I_F_3I_F_I,
     .  FMW_2I_F_2I_2A_I,FMW_A_2I_X_I,FMW_F_3I,FMW_F_I_2F_I,FMW_I_4F,
     .  FMW_2I_F_2I_F,FMW_2I_F_2I_F_I, FMW_I_X_2F_3I,FMW_4I_X_I,FMW_F_I_X_F_I_F,
     .  FMW_F_I_X_F_I,FMW_2F_I_F_I,FMW_F_2I,FMW_3F_X_I_F, FMW_I_2X_4I

       INTEGER
     .  IDFT_NODE_AUTO   ,IDLT_NODE_AUTO   ,
     .  IDFT_GRNOD_AUTO  ,IDLT_GRNOD_AUTO  ,
     .  IDFT_RBODY_AUTO  ,IDLT_RBODY_AUTO  ,
     .  IDFT_BCS_AUTO    ,IDLT_BCS_AUTO    ,
     .  IDFT_IMPVEL_AUTO ,IDLT_IMPVEL_AUTO ,
     .  IDFT_IMPDISP_AUTO,IDLT_IMPDISP_AUTO,
     .  IDFT_CLOAD_AUTO  ,IDLT_CLOAD_AUTO  ,
     .  IDFT_FUNC_AUTO   ,IDLT_FUNC_AUTO   ,
     .  IDFT_FRAME_AUTO  ,IDLT_FRAME_AUTO  ,
     .  ID_TH_AUTO       ,ID_INTER_AUTO    , 
     .  ID_LINE_AUTO

       COMMON /SCR17ID/
     .  IDFT_NODE_AUTO   ,IDLT_NODE_AUTO   ,
     .  IDFT_GRNOD_AUTO  ,IDLT_GRNOD_AUTO  ,
     .  IDFT_RBODY_AUTO  ,IDLT_RBODY_AUTO  ,
     .  IDFT_BCS_AUTO    ,IDLT_BCS_AUTO    ,
     .  IDFT_IMPVEL_AUTO ,IDLT_IMPVEL_AUTO ,
     .  IDFT_IMPDISP_AUTO,IDLT_IMPDISP_AUTO,
     .  IDFT_CLOAD_AUTO  ,IDLT_CLOAD_AUTO  ,
     .  IDFT_FUNC_AUTO   ,IDLT_FUNC_AUTO   ,
     .  IDFT_FRAME_AUTO  ,IDLT_FRAME_AUTO  ,
     .  ID_TH_AUTO       ,ID_INTER_AUTO    , 
     .  ID_LINE_AUTO
